home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -seriously_amiga- / shareware / programming / other / pmdev / demos / demo.c < prev    next >
C/C++ Source or Header  |  1998-01-05  |  5KB  |  180 lines
  1. //
  2. // $VER: Demo.c 2.0 (16.10.97)
  3. //
  4. // Popup Menu example program
  5. //
  6. // ©1996-1997 Henrik Isaksson
  7. // All Rights Reserved.
  8. //
  9. // Run and click the mouse in the window and over the dragbar!
  10. // (two different menus)
  11. //
  12.  
  13. #include <intuition/intuition.h>
  14.  
  15. #include <clib/intuition_protos.h>
  16. #include <clib/exec_protos.h>
  17. #include <clib/alib_protos.h>
  18.  
  19. #include <string.h>
  20. #include <stdio.h>
  21. #include <stdlib.h>
  22.  
  23. #include <libraries/pm.h>
  24. #include <proto/pm.h>
  25.  
  26. struct IntuitionBase    *IntuitionBase;
  27. struct GfxBase        *GfxBase;
  28. struct PopupMenuBase    *PopupMenuBase;
  29.  
  30. struct Window *w;    // This window is only needed to find out when and where the menu should appear.
  31.             // The font in this window's rastport will be used for the menu.
  32.  
  33. ULONG __saveds __asm MenuHandlerFunc(register __a0 struct Hook *hook,
  34.                      register __a2 APTR object,
  35.                      register __a1 APTR msg)
  36. {
  37.     struct PopupMenu *pm=(struct PopupMenu *)object;
  38.     char bfr[128];
  39.  
  40.     if(pm->UserData) {
  41.         sprintf(bfr, "RUN <>NIL: %s", pm->UserData);
  42.         system(bfr);
  43.     }
  44.  
  45.     if(pm->ID==5) *((BOOL *)hook->h_Data)=FALSE;    // ID 5 means quit
  46. }
  47.  
  48. void main()
  49. {
  50.     BOOL r=TRUE;
  51.     struct IntuiMessage *im,imsg;
  52.     struct PopupMenu *p1,*p2;
  53.     struct Hook MenuHandler;
  54.  
  55.     MenuHandler.h_Entry=(HOOKFUNC)MenuHandlerFunc;
  56.     MenuHandler.h_Data=&r;
  57.  
  58.     PopupMenuBase=(struct PopupMenuBase *)OpenLibrary(POPUPMENU_NAME,POPUPMENU_VERSION);            // Open the library
  59.     if(PopupMenuBase) {
  60.         IntuitionBase=(struct IntuitionBase *)PopupMenuBase->pmb_IntuitionBase;    // We let popupmenu.library open the libraries we need
  61.         GfxBase=(struct GfxBase *)PopupMenuBase->pmb_GfxBase;            // They remain valid until the library is closed!
  62.  
  63.         p1=PMMenu("Run Demos"),
  64.             PMItem("Disable"), PMSimpleSub,
  65.                 PMInfo("This demo shows how to read the"),    End,
  66.                 PMInfo("state of a checkmark, and"),        End,
  67.                 PMInfo("how to disable & enable an item"),    End,
  68.                 PMInfo("and its submenu."),            End,
  69.                 PMBar,    End,
  70.                 PMItem("Run the demo!"),    PM_UserData,    "Disable",    End,
  71.                 End,
  72.             End,
  73.             PMItem("PullDownMenu"), PMSimpleSub,
  74.                 PMInfo("The PullDownMenu demo shows how"),    End,
  75.                 PMInfo("you can use the popupmenu.library"),    End,
  76.                 PMInfo("for pulldown menus!"),            End,
  77.                 PMBar,    End,
  78.                 PMItem("Run the demo!"),    PM_UserData,    "PullDownMenu",    End,
  79.                 End,
  80.             End,
  81.             PMItem("MenuVerify"), PMSimpleSub,
  82.                 PMInfo("This example uses the"),        End,
  83.                 PMInfo("IDCMP_MENUVERIFY flag to"),        End,
  84.                 PMInfo("combine standard intuition"),        End,
  85.                 PMInfo("menus with popupmenus int"),        End,
  86.                 PMInfo("the same window!"),            End,
  87.                 PMBar,    End,
  88.                 PMItem("Run the demo!"),    PM_UserData,    "MenuVerify",    End,
  89.                 End,
  90.             End,
  91.             PMItem("StartMenu"), PMSimpleSub,
  92.                 PMInfo("This demo shows how to put"),        End,
  93.                 PMInfo("images in you menus."),            End,
  94.                 PMInfo("You can find the menu at the"),        End,
  95.                 PMInfo("bottom of the screen."),        End,
  96.                 PMBar,    End,
  97.                 PMItem("Run the demo!"),    PM_UserData,    "StartMenu",    End,
  98.                 End,
  99.             End,
  100.             PMItem("Palette"), PMSimpleSub,
  101.                 PMInfo("Popup menus can be used to"),        End,
  102.                 PMInfo("choose colours from too..."),        End,
  103.                 PMBar, End,
  104.                 PMItem("Colours"), PMSimpleSub,
  105.                     PMCheckItem("", 1),    PM_ColourBox,    0,    End,
  106.                     PMCheckItem("", 1),    PM_ColourBox,    1,    End,
  107.                     PMCheckItem("", 1),    PM_ColourBox,    2,    End,
  108.                     PMCheckItem("", 1),    PM_ColourBox,    3,    End,
  109.                     PMCheckItem("", 1),    PM_ColourBox,    4,    End,
  110.                     PMCheckItem("", 1),    PM_ColourBox,    5,    End,
  111.                     PMCheckItem("", 1),    PM_ColourBox,    6,    End,
  112.                     PMCheckItem("", 1),    PM_ColourBox,    7,    End,
  113.                     End,
  114.                 End,
  115.                 End,
  116.             End,
  117.         End;
  118.  
  119.         p2=PMMenu("PopupMenu Demo"),
  120.             PMItem("About..."),                End,
  121.             PMTitleBar,                    End,
  122.             PMItem("Quit"),        PM_ID,        5,    End,
  123.         End;
  124.  
  125.         if(p1 && p2) {
  126.             w=OpenWindowTags(NULL,    WA_IDCMP,    IDCMP_CLOSEWINDOW|IDCMP_MOUSEBUTTONS,    // Open a little window
  127.                     WA_RMBTrap,    TRUE,
  128.                     WA_DragBar,    TRUE,
  129.                     WA_Left,    150,
  130.                     WA_Top,        100,
  131.                     WA_Width,    150,
  132.                     WA_Height,    100,
  133.                     WA_SizeGadget,    TRUE,
  134.                     WA_DepthGadget,    TRUE,
  135.                     WA_MinWidth,    150,
  136.                     WA_MaxWidth,    1280,
  137.                     WA_MinHeight,    100,
  138.                     WA_MaxHeight,    1024,
  139.                     WA_Title,    "Popup Menu Demo",
  140.                     WA_CloseGadget,    TRUE,
  141.                     TAG_DONE);
  142.             if(w) {
  143.  
  144.                 while(r) {
  145.                     WaitPort(w->UserPort);                        // Wait for a message
  146.                     while((im=(struct IntuiMessage *)GetMsg(w->UserPort))) {    // Get the message
  147.                         CopyMem(im,&imsg,sizeof(struct IntuiMessage));        // Copy the contents of it
  148.                         ReplyMsg((struct Message *)im);                // Reply the message
  149.  
  150.                         switch(imsg.Class) {
  151.                             case IDCMP_CLOSEWINDOW: r=FALSE; break;
  152.                             case IDCMP_MOUSEBUTTONS:            // The user has hit a mousebutton - time to open the menu!
  153.                                 if(imsg.Code==MENUDOWN || imsg.Code==MENUUP) {
  154.                                     if(w->MouseY>w->BorderTop) {
  155.                                         PM_OpenPopupMenu(w,
  156.                                             PM_Menu,        p1,
  157.                                             PM_Code,        imsg.Code,
  158.                                             PM_MenuHandler,        &MenuHandler,
  159.                                             TAG_DONE);
  160.                                     } else {
  161.                                         PM_OpenPopupMenu(w,
  162.                                             PM_Menu,        p2,
  163.                                             PM_Code,        imsg.Code,
  164.                                             PM_MenuHandler,        &MenuHandler,
  165.                                             TAG_DONE);
  166.                                     }
  167.                                 }
  168.                             break;
  169.                         }
  170.                     }
  171.                 }
  172.                 CloseWindow(w);
  173.             } else printf("Window error!\n");
  174.         } else printf("Menu error!\n");
  175.         if(p1) PM_FreePopupMenu(p1);
  176.         if(p2) PM_FreePopupMenu(p2);
  177.         CloseLibrary((struct Library *)PopupMenuBase);
  178.     }
  179. }
  180.